home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi_1 / form6.frm < prev    next >
Text File  |  1998-09-14  |  3KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form Form6 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "16 Bit Pallete"
  5.    ClientHeight    =   1350
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3870
  9.    Icon            =   "Form6.frx":0000
  10.    LinkTopic       =   "Form6"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1350
  14.    ScaleWidth      =   3870
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.PictureBox ColPal 
  17.       Appearance      =   0  'Flat
  18.       AutoRedraw      =   -1  'True
  19.       AutoSize        =   -1  'True
  20.       BackColor       =   &H80000005&
  21.       ForeColor       =   &H80000008&
  22.       Height          =   1140
  23.       Left            =   1560
  24.       Picture         =   "Form6.frx":08CA
  25.       ScaleHeight     =   1110
  26.       ScaleWidth      =   2145
  27.       TabIndex        =   2
  28.       Top             =   120
  29.       Width           =   2175
  30.    End
  31.    Begin VB.OptionButton Option1 
  32.       Caption         =   "Option1"
  33.       Height          =   495
  34.       Left            =   7080
  35.       TabIndex        =   1
  36.       Top             =   1200
  37.       Width           =   1215
  38.    End
  39.    Begin VB.PictureBox Picture1 
  40.       Height          =   1140
  41.       Left            =   120
  42.       ScaleHeight     =   1080
  43.       ScaleWidth      =   1155
  44.       TabIndex        =   0
  45.       Top             =   120
  46.       Width           =   1215
  47.    End
  48.    Begin VB.Shape Shape1 
  49.       FillStyle       =   0  'Solid
  50.       Height          =   495
  51.       Left            =   6480
  52.       Top             =   0
  53.       Width           =   1215
  54.    End
  55. End
  56. Attribute VB_Name = "Form6"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61.  
  62. Private Sub ColPal_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  63.  On Error Resume Next
  64.   isPressed = True
  65.   If Option1.Value = True Then
  66.        Shape1.FillColor = pCol.Point(x, y)
  67.     
  68.   End If
  69.   If Option1.Value = True Then Shape1.FillColor = ColPal.Point(x, y)
  70.   If Option1.Value = True Then Picture1.BackColor = ColPal.Point(x, y)
  71. End Sub
  72.  
  73. Private Sub ColPal_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  74.  On Error Resume Next
  75.   isPressed = True
  76.   If Option1.Value = True Then
  77.        Shape1.FillColor = pCol.Point(x, y)
  78.     
  79.   End If
  80.   If Option1.Value = True Then Shape1.FillColor = ColPal.Point(x, y)
  81.   If Option1.Value = True Then Picture1.BackColor = ColPal.Point(x, y)
  82. End Sub
  83.  
  84. Private Sub ColPal_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  85.  On Error Resume Next
  86.   isPressed = True
  87.   If Option1.Value = True Then
  88.        Shape1.FillColor = pCol.Point(x, y)
  89.     
  90.   End If
  91.   If Option1.Value = True Then Shape1.FillColor = ColPal.Point(x, y)
  92.   If Option1.Value = True Then Picture1.BackColor = ColPal.Point(x, y)
  93. End Sub
  94.  
  95. Private Sub Form_Load()
  96. Option1.Value = True
  97. End Sub
  98.  
  99.